﻿Imports System.Net.Mail
Imports System.Data.OleDb

Public Class Verzenden
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack = False Then
            'Declaratie
            Dim intAantalGeselecteerde As String
            Dim strWelkeVergadering As String
            Dim strGeselecteerdeIDs() As String
            Dim objMail As New MailMessage()
            Dim objMijnAdres As New MailAddress("Proventi@hotmail.be", "Proventi")
            Dim objSmtp As New SmtpClient(My.Settings.SMTPServer)
            Dim strAan As String
            Dim strHyperlinkOude, strHyperlinkNieuwe As String
            Dim intArrayItems As Integer = -1
            Dim strGuid() As String
            Dim strsqlGuid As String
            Dim cnnAandeelhouders As New OleDbConnection
            Dim cmdCommando As New OleDbCommand
            Dim dtrDataReader As OleDbDataReader

            'Gegevens van vorige pagina eruithalen
            'Dit wil zeggen dat de gegevens die we verzameld hebben op de vorige pagina hergebruiken wij op deze pagina
            intAantalGeselecteerde = Session.Item("AantalGeselecteerde")
            For intTeller As Integer = 0 To intAantalGeselecteerde
                Dim strGeselecteerd As String = "strGeselecteerdeIDs" & intTeller
                ReDim Preserve strGeselecteerdeIDs(intTeller)
                'strGeselecteerdeEmails(intTeller) = Session.Item(strGeselecteerd)
            Next


            strWelkeVergadering = Session.Item("strWelkeVergadering")
            mailContent.InnerHtml = Session.Item("MailContent")
            'Connectie voorbereiden
            cnnAandeelhouders.ConnectionString = My.Settings.csAandeelhouders
            cmdCommando.Connection = cnnAandeelhouders
            For intTeller As Integer = 0 To intAantalGeselecteerde
                strsqlGuid = "SELECT [Guid] FROM [tblAandeelhouders] WHERE [ID]='" & strGeselecteerdeIDs(intTeller) & "'"
                cmdCommando.CommandText = strsqlGuid
                cmdCommando.CommandText = strsqlGuid
                'Connectie openen
                cnnAandeelhouders.Open()
                dtrDataReader = cmdCommando.ExecuteReader
                Do While dtrDataReader.Read()
                    ReDim Preserve strGuid(intTeller)
                    strGuid(intTeller) = dtrDataReader.Item("Guid").ToString()
                Loop
                cnnAandeelhouders.Close()
            Next

            'Stuurt de mails één per één door
            For intTeller As Integer = 0 To intAantalGeselecteerde
                strAan = strGeselecteerdeIDs(intTeller)
                'stel de verzender en ontvanger in 
                objMail.From = objMijnAdres
                objMail.To.Add(strAan)
                'stel het subject en de tekst in 
                objMail.Subject = strWelkeVergadering
                If intTeller = 0 Then
                    'nothing
                Else
                    strHyperlinkOude = "<a href=Bevestiging.aspx?AH=" & strGuid(intTeller - 1) & ">Klik hier voor aanwezig of afwezig</a>"
                    strHyperlinkNieuwe = "<a href=Bevestiging.aspx?AH=" & strGuid(intTeller) & ">Klik hier voor aanwezig of afwezig</a>"
                    mailContent.InnerHtml = mailContent.InnerHtml.Replace(strHyperlinkOude, strHyperlinkNieuwe)
                End If

                objMail.Body = mailContent.InnerText
                objMail.IsBodyHtml = True
                'verzend het bericht 
                objSmtp.Send(objMail)

            Next


            Response.Redirect("Verzonden.aspx")
        End If

    End Sub

End Class